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-- file SymbolCache.Mesa 

-- last modified by Satterthwaite on August 26, 1977 9:23 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
ControlDefs: FROM "controldef s", 
SegmentDefs: FROM "segmentdef s" , 
SymDefs: FROM "symdefs", 
SymbolTable: FROM "symboUable" , 
TableDefs: FROM "tabledefs". 
SymboUableOefs: FROM "symbol tabledefs" ; 

DEFINITIONS FROM SymbolTabl eDef s ; 

SymbolCache: PROGRAM 
IMPORTS 

sO: SymbolTable, si: SymbolTable, s2: SymbolTable, s3: SymbolTable, 
SegmentDefs 
EXPORTS SymbolTableDefs 
SHARES ControlDefs, SymbolTableDefs = 
BEGIN 
OPEN SegmentDefs; 

-- public interface 

NoSymbolTable: PUBLIC SIGNAL [Fi leSegmentHandle] = CODE; 

TableForFrame: PUBLIC PROCEDURE [frame: ControlDefs . FrameHandle] RETURNS [SymbolTableHandle] = 
BEGIN 

symbolseg; Fi leSegmentHandle = frame. access! ink . symbolsegment; 
IF symbolseg = NIL THEN ERROR NoSymbolTabl e[f name . accessl ink .codesegment] ; 
IF symbolseg. cl ass it symbols THEN ERROR; 
RETURN [Symbo1TablGHandle[ symbolseg]] 
END; 

TableForSegment: PUBLIC PROCEDURE [seg: Fi leSegmentHandle] RETURNS [SymbolTableHandle] = 
BEGIN 

IF seg = NIL OR seg. class U symbols THEN ERROR NoSymbolTable[seg] ; 
RETURN [Symbo1TableHandle[seg]] 
END; 

SegmentForTable: PUBLIC PROCEDURE [table: SymbolTableHandle] RETURNS [Fi leSegmentHandle] = 
BEGIN 

RETURN [table. segment] 
END; 

TooManySymbolTables: PUBLIC SIGNAL [handle: SymbolTableHandle] ' CODE; 

SymbolBuffersFull : PUBLIC SIGNAL = CODE; 

niegalSymbolBase: PUBLIC SIGNAL [base: SymbolTabl eBase] = CODE; 

AcquireSymbolTable: PUBLIC PROCEDURE [handle: SymbolTableHandle] RETURNS [base: SymbolTableSase] 
BEGIN 

i : STMapIndex; 
-- repeat on failure 
DO 

i <- strover; 
00 

IF stmap[ i ] . stl ink = NIL 
THEN 

BEGIN strover ♦- i; 

stmap[ 1 ] . sn ink <- MakeCacheEntry[handle] ; 
base ♦- s tmap[ i ] . s tbase : 

Ins tal 1 Table[base , s tmap[ i] . stl ink . symheader] ; 
RFTURN 
FND; 
i - IF i=l AST[STMapTndex] THFN riRST[STMapIndex] ELSE i+1; 
If I = strover THFN EXIT; 
TNOl OOP; 
STGNAl TQoManySymbolTab1os[handle] ; 
TNOI OOP; 
END; 

HeleaseSymbolTable: PUBLIC PROCFDURC [base: Symbol Tab! eBase] = 
BEGIN 
i: STMapIndex ♦- strover; 
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DO 

IF stmap[i].stbase = base AND stmap[i] .stUnk // NIL 
THEN 

BEGIN strover ♦- i ; 

FreeCacheEntry[stmap[i].stl ink]; stmap[i] . stl ink ♦• NIL; 
RETURN 
END; 
i ♦• IF i=:FIRST[STMapIndex] THEN LAST[STMapIndex] ELSE i-1; 
IF i - strover THEN EXIT; 
ENDLOOP; 
SIGNAL megalSymbo18ase[base]; RETURN 
END; 



cachepagel imit: INTEGER ^ 0; 

SymbolCacheSize: PUBLIC PROCEDURE RETURNS [pages: INTEGER] = 
BEGIN 

pages ♦- cachepagel imit ; RETURN 
END; 

SetSymbolCacheSize: PUBLIC PROCEDURE [pages: INTEGER] = 
BEGIN 

cachepagel imit *• MAX[pages» 0]; 
trimc ache [cachepagel imi t]; 
RETURN 
END; 

suspended: BOOLEAN; 

SuspendSymbolCache: PUBLIC PROCEDURE = 
BEGIN 

node: CachePointer; 
trimcache[0] ; 
suspended ♦• TRUE; 
FOR node ^ header. next, node. next UNTIL node = free 

DO Un1ock[ node. table]; SwapOut[ node. table] ENPLOOP; 
RETURN 
END; 

RestartSymbolCache: PUBLIC PROCEDURE = 
BEGIN 

node: CachePointer; 
i: STMapIndex; 
IF -suspended THEN ERROR; 

FOR node ♦- header. next, node. next UNTIL node = free 
DO 

SwapIn[node. table] ; 

node . symheader ^ FneSegmentAddress[node. table] ; 
ENDLOOP; 
FOR i IN STMapIndex 
DO 

IF stmap[i].stl ink # NIL 
THEN 
BEGIN 

SetBases[stmap[ i] . stbase, stmap[i] . stl ink. symheader] ; 
stmap[i ]. stbase . noti f ier[stmap[ i] . stbase]; 
END; 
ENDLOOP; 
suspended ♦- FALSE; 
RETURN 
END; 



-- internal cache management 

CacheNode: TYPE = RECORD[ 
prev, next: CachePointer, 
table: Symbol Tab! eHand 1 e , 
symheader: POINTER, 
refcount: INTEGER]; 

CachePointer: TYPE = POINTER TO CacheNode; 

STMapIndex: TYPE = INTEGfR [0..4); 
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stmap: ARRAY STMapIndex OF RECORD[ 

stbase: SymbolTableBase, 

stiink: CachePointer]; 
strover: STMapIndex; 

header, free, flushed: CachePointer; 
CacheNodes: INTEGER = 7; 

cachedpages: INTEGER; 

IncompatibleSymbolTable: ERROR = CODE; 

MakeCacheEntry: PROCEDURE [handle: SymbolTableHandle] RETURNS [node: CachePointer] 
BEGIN 

FOR node ♦■ header. next, node. next UNTIL node = free 
DO 

IF node. table = handle THEN GO TO allocated; 
REPEAT 

allocated *> NULL; 
FINISHED => 
BEGIN 

FOR node *• free, node. next UNTIL node = flushed 
DO 

IF node. table = handle THEN GO TO unflushed; 
REPEAT 

unflushed => 
BEGIN 

movenode[node, free]; 
IF flushed = free 

THEN RemoveSwapStrategy [©flush strategy] ; 
END; 
FINISHED => 
BEGIN 

trimcache[cachepagel imit]; 
node ♦- GetFlushedNode[] ; 
Swapln[handle 
llnvalidFP => ERROR NoSymbolTab 1 e[handl e] ; 
Insuff icientVM => 

IF free // flushed THEN 

BEGIN FlushATable[]; RESUME END]; 
cachedpages <- cachedpages + handl e .pages ; 
node, table ♦■ handle ; 

node . symheader ♦- Fi leSegmentAddress[handle] ; 
movenode[node , free]; 
END; 
ENDLOOP; 
movenode[node, free]; 
END; 
ENDLOOP; 
node . ref count ♦- node . ref coun t+1 ; RETURN 
END; 

FreeCacheEntry: PROCEDURE [node: CachePointer] = 
BEGIN 

np: INTEGER; 
slot: CachePointer; 

SELECT (node.refcount ♦- node . ref count-1 ) FROM 
=0 => 
BEGIN 

slot <- free; np *- node . table, pages ; 
IF 3*np > cachepagel imi t 
THEN 

UNTIL slot = flushed OR slo t . tabl e . pages > np 
DO slot ♦- slot. next ENDLOOP; 
If flushed = rree THEN AddSwapS tra tegy[@f 1 ushs trategy ] ; 
movenode[node , slot]; 
If slot = free THEN free ♦- node; 
ir imc ache [cachepagel imit]; 
fND: 
>0 => NULL; 
rNOCASr => ERROR; 
RETURN 
END; 

riushATable: PROCEDURE = 
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BEGIN 

IF free = flushed THEN RETURN; 

Unlock[f lushed. prev. table]; SwapOut[f lushed. pre v. table]; 

cachedpages <- cachedpages - flushed. prev. table. pages; 

flushed *- flushed .prev; 

IF flushed = free THEN RemoveSwapStrategy[0f lushstrategy] ; 

RETURN 

END; 

GetFlushedNode: PROCEDURE RETURNS [CachePointer] = 
BEGIN 
UNTIL flushed # header 

DO 

IF free // flushed THEN FlushATable[] ELSE SIGNAL SymbolBuf f ersFull ; 

ENDLOOP; 
RETURN [flushed] 
END; 

movenode: PROCEDURE [node, position: CachePointer] = 
BEGIN 

IF node = free THEN free ^ free. next; 
IF node = flushed THEN flushed ^ flushed .next; 
IF node if position AND node. next if position 
THEN 

BEGIN 

node . prev . next «- node. next; node, next . prev <- node. prev; 

node. prev <- posi tion .prev ; node, prev . next ^ node; 

node. next «- position; posi tion. prev ♦• node; 

END; 
RETURN 
END; 

trimcache: PROCEDURE [size: INTEGER] = 
BEGIN 

WHILE cachedpages > size AND free # flushed DO Fl ushATable[] ENDLOOP; 
RETURN 
END; 

f lushstrategy : SwapStrategy +• [link: , proc: f lushtables] ; 

flushtables: SwappingProcedure = 
BEGIN 

changed: BOOLEAN ♦- (free # flushed); 
trimcache[0] ; 
RETURN [changed] 
END; 



-- symbol table setup 

InstallTable: PROCEDURE [base: SymbolTableBase, b: POINTER] = 
BEGIN 

SetBases[base, b]; base . ignorecases <- FALSE; 
base, not i f ier «- base .Nul INot i f ier ; 
RETURN 
END; 

SetBases: PROCEDURE [base: SymbolTableBase , b: POINTER] = 
BEGIN 

OPEN base; 

tb: TableDefs.TableBase = LOOPHOLE[b]; 
p: POINTCR TO SymDefs . STHeader = b; 
q: POTNTfR TO SymDefs . FgHeader ; 

hashvec ♦- DrsCRTPTOR[b+p . hvOf fset , p . hvSize/SI7r [SymDefs . HTIndex]] ; 
ht ^ DrsCRIPTOR[b+p.htOrfset, p . h tS i ze/SIZF[SymDef s . HTRecord]] ; 
ssb ♦- b + p.ssOffset; 
seb ^ tb + p . seOf fset ; 
ctxb *- tb + p.ctxOrfset; 
mdb ♦- tb + p .mdOff se t ; 
bb *- tb + p.bodyOrrset: 
s t M a lid 1 e <- p : 
ir p. fgRelPgBase = 

THTN sourcef ile ♦- NIL 

Fl SF 
BFGrW 
q ^ b + p. fgRelPgBase*Al toDefs.PagoSize; 
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sourcefile ^ LOOPHOLE[0q.sourc8f ile]; 
fgt *• DESCRIPTOR[ 

b + p.fgRelPgBase*AUoDefs.PageSi2e + q.fgoffset, 
q. fglength]; 
END; 
RETURN 
END; 

-- initialization 

CacheEntries: ARRAY [0 . .CacheNodes] OF CacheNode; 

-- initialization code (must be STARTed) 
i: STMapIndex; 
j: INTEGER [0. .CacheNodes] ; 
-- initialize the symbol map 

FOR i IN STMapIndex DO stmap[i ] . stl ink ♦- NIL ENDLOOP; 
stmap[0].stbase ♦- sO; RESTART sO; 
stmap[l].stbase ♦- si; RESTART si; 
stmap[2].stbase ♦• s2; RESTART s2; 
stmap[3].stbase ♦- s3; RESTART s3; 
strover ♦- FIRST[STMapIndex] ; 
-~ initialize the cache bookkeeping 
FOR j IN [0. .CacheNodes] 
DO 

CacheEntries[ j] . refcount ♦• 0; 

CacheEntries[j].next ♦- {§CacheEntries[IF j = CacheNodes THEN ELSE j + 1]; 
CacheEntries[j].prev ♦- @CacheEntries[IF j = THEN CacheNodes ELSE j-1]; 
ENDLOOP; 
header ♦• 9CacheEntries[0]; 

free ♦• flushed ♦- header. next; cachedpages *• 0; 
suspended ♦- FALSE; 

END, 



